home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00077_SinglePointStickSwitch.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.8 KB  |  136 lines
  1. --
  2. -- SinglePoint
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag
  13.  
  14. global gUI
  15.  
  16. on new me
  17.   -- initialize constants:
  18.   set delaySecs = 1
  19.   
  20.   set ancestor = new (script "SinglePointPusher")
  21.   
  22.   set responseFlag = TRUE
  23.   
  24.   -- add (the actorList, new (script "ObjectUpdater", me))
  25.   return me
  26. end
  27.  
  28.  
  29. on destruct me
  30.   if objectP (ancestor) then destruct (ancestor)
  31.   set ancestor = 0
  32. end
  33.  
  34.  
  35. on noResponse me
  36.   set responseFlag = FALSE
  37. end
  38.  
  39.  
  40. on initializeRound me
  41.   hideDraggables (me)
  42.   initializeRound (ancestor)
  43.   showDraggables (me)
  44.   pushOffDraggables (me)
  45.   initHandCursor ("hand", getDraggableList (me))
  46.   initPlay (me)
  47. end
  48.  
  49.  
  50. on mouseDown me, spr
  51.   if not isDraggable (me, spr) then return 0
  52.   
  53.   -- drag until release:
  54.   set testSprite = dragSprite (me, spr)
  55.   if testSprite = -1 then return 1  -- drag ended in starting position (exactly)
  56.   
  57.   -- on release of the mouse
  58.   -- check to see if the sprite is overlapping the correct container:
  59.   
  60.   set matchSprite = checkMatch (me, spr, testSprite)
  61.   hideUnderSprite (me)
  62.   
  63.   if matchSprite then
  64.     -- if a match, snap the draggable to position and stick it there.
  65.     set the castLibNum of sprite spr to the number of castLib "draggablesSwitch"
  66.     
  67.     snapToPosition (me, spr, matchSprite)
  68.     stickDraggable (me, spr)
  69.     --  hideTarget (me, matchSprite)
  70.     updateStage
  71.     
  72.     -- play the good response sound 
  73.     if responseFlag then playResponseSound(1, 1)
  74.     -- play the proper "ID" sound
  75.     playSprite (gUI, spr, #ID)
  76.     
  77.     animateSprites (me, [matchSprite])  -- animate the matching sprite
  78.     
  79.     -- move a bar graph if one has been set up:
  80.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  81.     
  82.     -- moveOffScreen (me, matchSprite)
  83.     set lab = string (getID (me, spr))
  84.     
  85.     
  86.     -- if there is an animation label then play that label:
  87.     if the labelList contains lab then
  88.       clearPictLink (me)
  89.       go lab
  90.       
  91.       -- otherwise check to see if we are done with the activity:
  92.     else
  93.       
  94.       if not done (me) then 
  95.         initPlay (me)
  96.       end if
  97.       
  98.     end if
  99.     
  100.   else
  101.     showDraggable (me, spr)
  102.     -- play the negative response sound 
  103.     playResponseSound(0, 1)
  104.   end if
  105.   
  106.   return 1
  107. end
  108.  
  109.  
  110.  
  111. -- initialize an individual play:
  112.  
  113. on initPlay me
  114.   set activeSpr = pushOnDraggable (me)
  115.   makePictLink (me, activeSpr)
  116.   -- play the intro sound by sprite...
  117.   playSprite (gUI, activeSpr, #prompt)
  118.   initHandCursor ("hand", getDraggableList (me))
  119. end
  120.  
  121.  
  122.  
  123. -- check to see if we are done.  
  124. -- if so, then do an action.
  125.  
  126. on done me
  127.   clearPictLink (me)
  128.   if checkDone (me) then 
  129.     wait (me, delaySecs)
  130.     go "finish"
  131.     unloadCast (me)
  132.     return 1
  133.   else
  134.     return 0
  135.   end if
  136. end